home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / desaware / stgtools / stg_demo / cfbrowsr.bas < prev    next >
Encoding:
BASIC Source File  |  1995-09-27  |  444 b   |  18 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. ' Declare the variables that carry information
  5. ' across forms.
  6. Global GlobalText As Variant
  7. Global GlobalResult As Boolean
  8. Global GlobalSize As Long
  9. Global GlobalRootStorage As Object
  10.  
  11. ' The 16-bit version of the Outline control does
  12. ' not define these constants.
  13. #If Win16 = 1 Then
  14.     Global Const outClosed = 0
  15.     Global Const outOpen = 1
  16.     Global Const outLeaf = 2
  17. #End If
  18.